home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 8 / The Arsenal Files Collection #8 (Arsenal Computer) (1996).ISO / prg_casm / snpd9611.zip / FPTR_ADD.C < prev    next >
Text File  |  1996-11-24  |  414b  |  22 lines
  1. .I 0 2
  2. /* +++Date last modified: 24-Mar-1996 */
  3.  
  4. .I 13 1
  5. void FAR *addptr (char FAR *p, unsigned long num)
  6. .D 14 1
  7. .I 27 14
  8.  
  9. /*
  10. **  Normalize a far pointer
  11. */
  12.  
  13. void FAR *farnormal(void FAR *ptr)
  14. {
  15.       unsigned long base, para;
  16.  
  17.       base = ((unsigned long)(ptr) & 0xffff000fL);
  18.       para = ((unsigned long)(ptr) & 0x0000fff0L);
  19.       para <<= 12;
  20.       return (void FAR *)(base + para);
  21. }
  22.